home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
004a
/
grammar2.zip
/
INSTALL2.BAT
< prev
next >
Wrap
DOS Batch File
|
1990-05-08
|
5KB
|
154 lines
echo off
REM INSTALL2.BAT FOR CG 2.1 (May 1990)
REM Unpack files to requested location; get word processor
%1LOCATE 00,00
copy CLS.BAT con >nul
%1LOCATE 03,00
echo ║ Copying Correct Grammar files. This may take several
echo ║ minutes. Please stand by . . .
copy %1PKXARC.COM >nul
PKXARC -r %1CG1 GETNUM.EXE >nul
copy %1GETYNCG.COM >nul
copy %1LOCATE.COM >nul
if not exist LOCATE.COM goto NOROOM
copy %1CG.EXE >nul
if not exist CG.EXE goto NOROOM
LOCATE 07,00
echo ║ Still working. Thank you for your patience.
rem PKXARC -r %1CG1 README.CG >nul
PKXARC -r %1CG1 READMECG.TXT >nul
PKXARC -r %1CG1 DEMOCG.BAT >nul
PKXARC -r %1CG1 DEMO.CG >nul
PKXARC -r %1CG1 INSTALL3.BAT >nul
PKXARC -r %1CG1 LEARNCG.BAT >nul
PKXARC -r %1CG1 LEARNING.CG >nul
if not exist LEARNING.CG goto NOROOM
if exist %13 goto XCONT3
LOCATE 00,00
copy CLS.BAT con >nul
LOCATE 02,00
goto TWO
:BAD2
if exist %1CG2.ARC goto CONT2
LOCATE 02,00
echo ║ SORRY, WRONG DISK!
:TWO
LOCATE 04,00
echo ║ Insert your Correct Grammar DISK 2 in your diskette drive.
echo ║
echo ║ Press any key to continue.
pause >nul
if not exist %1CG2.ARC goto BAD2
:CONT2
LOCATE 00,00
copy CLS.BAT con >nul
LOCATE 03,00
echo ║ Copying Correct Grammar files. This may take several
echo ║ minutes. Please stand by . . .
:CONT3
LOCATE 07,00
:XCONT3
if exist CGRAMMAR.OV6 del CGRAMMAR.OV? >nul
PKXARC -r %1CG2 CGRAMMAR.OV0 >nul
if not exist CGRAMMAR.OV0 goto NOROOM
echo ║ Still working. Thank you for your patience.
PKXARC -r %1CG2 CGRAMMAR.EXE >nul
if not exist CGRAMMAR.EXE goto NOROOM
LOCATE 00,00
copy CLS.BAT con >nul
LOCATE 02,00
goto THREE
:BAD3
if exist %1CG3.ARC goto CONT3
LOCATE 02,00
echo ║ SORRY, WRONG DISK!
:THREE
LOCATE 04,00
if not exist %13 echo ║ Insert your Correct Grammar DISK 3 in your diskette drive.
if exist %13 echo ║ Insert your Correct Grammar DISK 2 in your diskette drive.
echo ║
echo ║ Press any key to continue.
pause >nul
if not exist %1CG3.ARC goto BAD3
:CONT3
LOCATE 00,00
copy CLS.BAT con >nul
LOCATE 03,00
echo ║ Copying Correct Grammar files. This may take several
echo ║ minutes. Please stand by . . .
LOCATE 07,00
PKXARC -r %1CG3 CGRAMMAR.OV? >nul
PKXARC -r %1CG3 WHATSNEW.* >nul
if not exist CGRAMMAR.OV5 goto NOROOM
echo ║ Almost finished. Please wait . . .
LOCATE 09,00
PKXARC -r %1CG3 CG-PIF.DVP >nul
if not exist CGDIC.SYS PKXARC -r %1CG3 CGDIC.SYS >nul
PKXARC -r %1CG3 CGEMPTY.SUP >nul
if not exist CGEMPTY.SUP goto NOROOM
goto ASKWP
:NOROOM
cls
echo ╔═══════════════════════════════════════════════════════════════════════╗
echo ║ ║
echo ║ Sorry, you are out of disk space. Cannot continue. ║
echo ║ ║
echo ║ To install Correct Grammar, you need 1.2 Mb of available space ║
echo ║ on your hard disk. Please correct the problem and try again. ║
echo ║ ║
echo ╚═══════════════════════════════════════════════════════════════════════╝
goto QUIT
:SORRY
LOCATE 00,00
copy CLS.BAT con >nul
LOCATE 02,00
echo ║ Sorry, that is not a valid selection.
goto ASKWP1
:ASKWP
LOCATE 00,00
copy CLS.BAT con >nul
LOCATE 02,00
echo ║ Which word processor do you usually use?
:ASKWP1
echo ║
echo ║ 1. WordPerfect 5.1
echo ║ 2. WordPerfect 5.0
echo ║ 3. WordPerfect 4
echo ║ 4. WordStar Professional 3, 4, 5, 5.5 or 6.0
echo ║ 5. WordStar 2000 2, 3 or 3.5
echo ║ 6. Sidekick
echo ║ 7. Microsoft Word 5
echo ║ 8. Microsoft Word 3 or 4
echo ║ 9. Microsoft Works 1 or 2 ║
echo ║ 10. PC-Write ║
echo ║ 11. pfs Write A, B or C ║
echo ║ 12. Professional Write 1 or 2 ║
echo ║ 13. XyWrite ║
echo ║ ║
echo ║ 14. ASCII ║
echo ║ ║
echo ║ Please type your choice and press Enter: ║
echo ║ ║
echo ╚═══════════════════════════════════════════════════════════════════════╝
LOCATE 20,48
GETNUM
if errorlevel == 15 goto SORRY
if errorlevel == 14 INSTALL3 %1 0
if errorlevel == 13 INSTALL3 %1 9
if errorlevel == 12 INSTALL3 %1 11
if errorlevel == 11 INSTALL3 %1 11
if errorlevel == 10 INSTALL3 %1 8
if errorlevel == 9 INSTALL3 %1 7
if errorlevel == 8 INSTALL3 %1 6
if errorlevel == 7 INSTALL3 %1 5
if errorlevel == 6 INSTALL3 %1 4
if errorlevel == 5 INSTALL3 %1 10
if errorlevel == 4 INSTALL3 %1 3
if errorlevel == 3 INSTALL3 %1 2
if errorlevel == 2 INSTALL3 %1 1 0
if errorlevel == 1 INSTALL3 %1 1 1
goto SORRY
:QUIT